home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / cdity / ntrash21.lha / newtrashcan / install / install_2.1+ / english < prev    next >
Text File  |  1993-08-15  |  1KB  |  40 lines
  1. ; NewTrashcan Installer
  2.  
  3. (set handdir
  4.      (askdir (prompt "Select dir for NT-Handler")
  5.              (default "sys:WBStartup")
  6.              (help @askdir-help)))
  7.  
  8. (copyfiles (source "//WBStartup/")
  9.            (dest handdir)
  10.            (pattern "#?")
  11.            (infos))
  12.  
  13. (set dirname
  14.      (askdir (prompt "Select dir for NT-Prefs")
  15.              (default "sys:Prefs")
  16.              (help @askdir-help)))
  17.  
  18. (copyfiles (source "//Prefs/")
  19.            (dest dirname)
  20.            (pattern "#?")
  21.            (infos))
  22. (set locale
  23.      (getassign "Locale" "a"))
  24.  
  25. (if locale
  26. (    (set sloc (cat "//Locale/" @language "/"))
  27.      (set dloc (cat "Locale:catalogs/" @language "/"))
  28.      (copyfiles (source sloc)
  29.                 (dest dloc)
  30.                 (pattern "#?"))
  31. ))
  32.  
  33. (if (askbool (help @askbool-help)
  34.              (prompt "Do you want to start the handler now?")
  35.              (choices "YES" "NO"))
  36. ((set nt (cat "run " handdir "/NewTrashcan install"))
  37.  (run nt))
  38. )
  39.  
  40. (exit "Done!\n" "NewTrashcan will be started in every booting.")